Sub Pruefe()
' Es wir dmit dieser Prozedur geprüft, ob noch zu einer Bahn ein Fragezeichen eingetragen ist.
' Leere Textboxen wurden bereits an anderer Stelle abgefangen.
' Dim c legt eine Variable an, die in jedem Durchlauf der folgenden Schleife die Textbox
' der jeweiligen Bahn repräsentiert.
Dim c As Control
' Die folgende Schleife schaut sich alle Controls des Formulars an (Textboxen, Schltflächen etc.)
' "Me" ist dabei diese Userform selbst.
For Each c In Me.Controls
' Wenn der Name des gerade untersuchten Elements mit "Bahn" beginnt, ...
If Left(c.Name, 4) = "Bahn" Then
' ... und wenn dann auch noch der Text ein "?" ist, dann ...
If c.Text = "?" Then
' ... wird eine Meldung gezeigt (das "& vbnewline," kann weg!), und ...
MsgBox "Eintrag nicht vollständig" & vbNewLine, vbCritical, "Fehler"
' ... verlasse diese Prozedur. Wenn da stattdessen "End" steht, wird jeglicher VBA-Code beendet.
Exit Sub
End If
' Hier geht es weiter, wenn in diesem Element-Text kein "?" angetroffen wird.
End If
' Hier geht es weiter, wenn der Name des Elements nicht mit "Bahn" beginnt.
Next
'
' Wenn alle Überprüfungen erfolgreich waren, gibt es noch 2 Meldungen (können weg).
MsgBox "Überprüfung erfolgreich.", vbInformation, "Prüfung"
' Man kann im Code lange Zeilen trennen, indem man an passender Stelle (hier hinter einem "&")
' ein Leerzeichen direkt gefolgt von einem Unterstrich un einer Zeilenschlaltung einfügt.
MsgBox "für den Eintrag ist gerade das folgende Blatt aktiviert:" & _
vbNewLine & ActiveSheet.Name
End Sub
|